home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 5 / CU Amiga Magazine's Super CD-ROM 05 (1996)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1996-12].iso / cucd / programming / amos / amospack_8 / ascii-codes.amos / ascii-codes.amosSourceCode
Encoding:
AMOS Source Code  |  1992-03-06  |  1.2 KB  |  41 lines
  1. '  ********************* 
  2. '  *                   * 
  3. '  *    Ascii Codes    *   
  4. '  *                   * 
  5. '  *        by         *   
  6. '  *                   * 
  7. '  *   Karl Fletcher   * 
  8. '  *                   * 
  9. '  *   ï¿½ K-Soft 1995   * 
  10. '  *                   ********************* 
  11. '  *                                       * 
  12. '  *  Print out the screen and use it as   * 
  13. '  *  an easy reference guide ..           *   
  14. '  *  It'll save you looking them up       * 
  15. '  *                                       * 
  16. '  ***************************************** 
  17.  
  18. Global A,B,X,Y
  19. Screen Open 0,640,256,4,Hires : Cls 0 : Flash Off : Curs Off : Hide 
  20. Palette $0,$2ADD,$8A5,,
  21. Paper 0 : Pen 2
  22. X=0 : Y=0 : A=32 : B=61 : _ASCII
  23. X=9 : Y=0 : A=62 : B=91 : _ASCII
  24. X=18 : Y=0 : A=92 : B=121 : _ASCII
  25. X=27 : Y=0 : A=122 : B=151 : _ASCII
  26. X=36 : Y=0 : A=152 : B=181 : _ASCII
  27. X=45 : Y=0 : A=182 : B=211 : _ASCII
  28. X=54 : Y=0 : A=212 : B=241 : _ASCII
  29. X=63 : Y=0 : A=242 : B=255 : _ASCII
  30. Pen 1 : Locate 64,20 : Print "This is the"
  31. Locate 64,22 : Print "Ascii character"
  32. Locate 64,24 : Print "set"
  33. Wait Key : Edit 
  34.  
  35. Procedure _ASCII
  36.    For F=A To B
  37.       Locate X,Y
  38.       Print F;" = ";Chr$(F)
  39.       Y=Y+1
  40.    Next F
  41. End Proc